www.gusucode.com > 茶都拼客网全功能版 8 > 茶都拼客网全功能版 8.8源码程序/teasdxmccom/茶都拼客网V8.8(全功能,无限制,完全开源)/Ku_conn.asp
<% dim conn dim connstr dim db db=""&Ku_database&"" '设定数据名称,建议改成.asa dim dbset:setdb = 1 '设定连接类型 On error resume next Set conn = Server.CreateObject("ADODB.Connection") select case setdb case "1" connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"") case "2" connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&db&"") case "3" connstr="driver={SQL Server};server=60.173.10.88;UID=sa;PWD=zgff666;database=kuaspbar" case else connstr= "Dns=kuhang_Sys_data" end select if err.number>0 then err.clear set conn=nothing response.write "数据库连接出错!" Response.End else conn.open connstr if err then err.clear set conn=nothing response.write "数据库连接出错!" Response.End end if end if Sub CloseConn() conn.close set conn=nothing End sub %>